use Test::More;

BEGIN { use_ok( 'KoeDownload' ); } # use KoeDownload;

my $dl = KoeDownload->new({
    url => 'http://koebu.com/api/koe/8559e86572225f2eeba99659248b1fab7a05c90b'
});

is $dl->mp3, 'http://koebu.s3.amazonaws.com/mp3/8/85/8559/8559e86572225f2eeba99659248b1fab7a05c90b.mp3';

is $dl->screen_name, 'agagagagagagagagag';
is $dl->gender, 'male';

my $filename = '/tmp/koe_'.time().'.mp3';
ok $dl->save($filename);

is $dl->filename, $filename;
ok( -f $dl->filename );

done_testing();

__END__

$ prove t/test01.t   

